SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO


CREATE proc [dbo].[sp_txmvto_inTE_I04] 
/*-------------------------------------------------------------------*/  
/*----- Empresa           : OFISIS S.A.                          ----*/  
/*----- Cliente           : OFISIS S.A.                          ----*/  
/*----- Sistema           : Contabilidad                         ----*/  
/*----- Modulo            : Empresa                              ----*/  
/*----- Programa          : Llama a mayorizacion antes de ejecutar----*/  
/*-----                     cierre en batch                      ----*/  
/*----- Nombre            : SP_TXMVTO_INTE_I04                   ----*/  
/*----- Script            : TXMVTO_CNTB                          ----*/  
/*----- Desarrollado por  : percy garcia                         ----*/  
/*----- Fecha             : 28/11/2003                           ----*/  
/*----- Base de Datos     : MS SQL Server                        ----*/  
/*----- Version BD        : 8.0                                  ----*/  
/*-------------------------------------------------------------------*/  
/*-------------------------------------------------------------------*/  
/*---- Modificado 1 por     :                                    ----*/  
/*---- Fecha Modificaci>n   :                                    ----*/  
/*---- Detalle Modificaci>n :                                    ----*/  
/*-------------------------------------------------------------------*/  
/*---- Comentarios: Valida Fecha de Proceso                  ----*/  
/*-------------------------------------------------------------------*/  
/*-------------------------------------------------------------------*/  
/*----- Drop proc SP_TXMVTO_INTE_I04                             ----*/  
/*----- Grant all on SP_TXMVTO_INTE_I04 to PUBLIC                ----*/  
/*----- exec SP_TXMVTO_INTE_I04 '01','OFITESO',2                 ----*/  
/*-------------------------------------------------------------------*/  
 @ISCO_EMPR           TD_VC_002,  
 @ISCO_SIST           TD_VC_008,  
 @INNU_PROC           TD_IN_001  
AS  
Declare  
  
@CNNU_CNTB_EMPR       TD_IN_001,  
@CSCO_UNID_CNTB       TD_VC_003,  
@CNNU_ANNO            TD_IN_004_ANNO,  
@CNNU_MESE            TD_IN_002_MESE,  
@VNNU_FACT_REDO       TD_NU_015_006,  
  
@VSST_GEST_LINE      TD_VC_001,  
@VSST_ASIE_GEST      TD_VC_003,  
@VSCO_OPRC_GEST      TD_VC_003,  
@VSNU_ASTO_GEST      TD_VC_010  
  
Begin Tran  SP_TXMVTO_INTE_I04  
  
  Declare CU_TXMVTO_INTE_I04_1 Cursor For  
  Select Distinct NU_CNTB_EMPR, CO_UNID_CNTB, NU_ANNO, NU_MESE  
  From   TXMVTO_INTE  
  Where  CO_EMPR = @ISCO_EMPR  
  And    NU_PROC = @INNU_PROC   
  Order  By NU_CNTB_EMPR, CO_UNID_CNTB, NU_ANNO, NU_MESE  
  
  Open CU_TXMVTO_INTE_I04_1  
  Fetch CU_TXMVTO_INTE_I04_1 Into  
        @CNNU_CNTB_EMPR, @CSCO_UNID_CNTB, @CNNU_ANNO, @CNNU_MESE  
  
  While  @@Fetch_status = 0  
  Begin  
  
    /*-- Mayorizacion --------------------------------------------------------------------------------*/  
    Exec SP_TASALD_EMPR_I01 @ISCO_EMPR, @CSCO_UNID_CNTB, @CNNU_CNTB_EMPR,  
         @CNNU_ANNO, @CNNU_MESE, @CNNU_ANNO, @CNNU_MESE  
  
  Fetch CU_TXMVTO_INTE_I04_1 Into  
         @CNNU_CNTB_EMPR, @CSCO_UNID_CNTB, @CNNU_ANNO, @CNNU_MESE  
   If @@error <> 0  
   Begin  
      Close CU_TXMVTO_INTE_I04_1  
      Deallocate CU_TXMVTO_INTE_I04_1  
      Rollback tran  
      Return  
    End  
  End  
  Close CU_TXMVTO_INTE_I04_1  
  Deallocate CU_TXMVTO_INTE_I04_1  
/*  
  If @@error <> 0  
  Begin  
    Close CU_TXMVTO_INTE_I04_1  
    Deallocate CU_TXMVTO_INTE_I04_1  
    Rollback tran  
    Return  
  End   */
  
Commit Transaction  
  
/*--------------------------- Fin ---------------------------------*/  

GO
